home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / TextProcedures.AMOS / TextProcedures.amosSourceCode
AMOS Source Code  |  1997-04-15  |  3KB  |  107 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *        Text Procedures V1.0       *
  4. ' *           von C. Hodges           *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Open 0,320,256,4,0
  9. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  10. Palette 0,$FFF,$AAA,$666
  11. Gr Writing 0
  12. For A=0 To 3
  13.   Cls A
  14.   NORT[-1,0,1,"NORMALER TEXT"]
  15.   NORT[-1,10,2,"NORMALER TEXT"]
  16.   NORT[-1,20,3,"NORMALER TEXT"]
  17.   SHAT[-1,30,1,3,"SCHATTEN TEXT"]
  18.   SHAT[-1,40,0,1,"SCHATTEN TEXT"]
  19.   BORT[-1,50,1,3,"BORDER TEXT"]
  20.   BORT[-1,60,0,1,"BORDER TEXT"]
  21.   OUTT[-1,70,1,2,3,0,"OUTLINE TEXT"]
  22.   OUTT[-1,80,3,2,1,0,"OUTLINE TEXT"]
  23.   OUTT[-1,90,2,3,0,1,"OUTLINE TEXT"]
  24.   XSHT[-1,100,1,2,3,"X-SHIFT TEXT"]
  25.   XSHT[-1,110,0,0,1,"X-SHIFT TEXT"]
  26.   YSHT[-1,120,1,2,3,"Y-SHIFT TEXT"]
  27.   YSHT[-1,130,0,0,1,"Y-SHIFT TEXT"]
  28.   SHIT[-1,140,1,2,3,"SHIFT TEXT"]
  29.   SHIT[-1,150,0,0,1,"SHIFT TEXT"]
  30.   BO2T[-1,164,1,2,3,"BORDER 2 TEXT"]
  31.   BO2T[-1,178,1,0,1,"BORDER 2 TEXT"]
  32.   SH2T[-1,190,1,3,"SCHATTEN 2 TEXT"]
  33.   SH2T[-1,200,0,1,"SCHATTEN 2 TEXT"]
  34.   BO2T[-1,240,1,2,3,"TASTE DR�CKEN!"]
  35.   Wait Key 
  36. Next 
  37. Procedure NORT[X,Y,I,T$]
  38.   If X<0 Then X=Screen Width/2-Len(T$)*4
  39.   If Y<0 Then Y=Screen Height/2-4
  40.   Ink I : Text X,Y+6,T$
  41. End Proc
  42. Procedure SHAT[X,Y,I,P,T$]
  43.   If X<0 Then X=Screen Width/2-Len(T$)*4
  44.   If Y<0 Then Y=Screen Height/2-4
  45.   Ink P : Text X+1,Y+7,T$
  46.   Ink I : Text X,Y+6,T$
  47. End Proc
  48. Procedure BORT[X,Y,I,P,T$]
  49.   If X<0 Then X=Screen Width/2-Len(T$)*4
  50.   If Y<0 Then Y=Screen Height/2-4
  51.   Ink P : Text X-1,Y+5,T$ : Text X,Y+5,T$ : Text X+1,Y+5,T$
  52.   Text X-1,Y+6,T$ : Text X+1,Y+6,T$
  53.   Text X-1,Y+7,T$ : Text X,Y+7,T$ : Text X+1,Y+7,T$
  54.   Ink I : Text X,Y+6,T$
  55. End Proc
  56. Procedure OUTT[X,Y,I1,I2,I3,I4,T$]
  57.   If X<0 Then X=Screen Width/2-Len(T$)*4
  58.   If Y<0 Then Y=Screen Height/2-4
  59.   Ink I1 : Text X-1,Y+5,T$ : Text X,Y+5,T$ : Text X-1,Y+6,T$
  60.   Ink I3 : Text X,Y+7,T$ : Text X+1,Y+7,T$ : Text X+1,Y+6,T$
  61.   Ink I2 : Text X+1,Y+5,T$ : Text X-1,Y+7,T$
  62.   Ink I4 : Text X,Y+6,T$
  63. End Proc
  64. Procedure XSHT[X,Y,I1,I2,I3,T$]
  65.   If X<0 Then X=Screen Width/2-Len(T$)*4
  66.   If Y<0 Then Y=Screen Height/2-4
  67.   Ink I3 : Text X+2,Y+6,T$
  68.   Ink I2 : Text X+1,Y+6,T$
  69.   Ink I1 : Text X,Y+6,T$
  70. End Proc
  71. Procedure YSHT[X,Y,I1,I2,I3,T$]
  72.   If X<0 Then X=Screen Width/2-Len(T$)*4
  73.   If Y<0 Then Y=Screen Height/2-4
  74.   Ink I3 : Text X,Y+8,T$
  75.   Ink I2 : Text X,Y+7,T$
  76.   Ink I1 : Text X,Y+6,T$
  77. End Proc
  78. Procedure SHIT[X,Y,I1,I2,I3,T$]
  79.   If X<0 Then X=Screen Width/2-Len(T$)*4
  80.   If Y<0 Then Y=Screen Height/2-4
  81.   Ink I3 : Text X+2,Y+6,T$ : Text X,Y+8,T$ : Text X+2,Y+7,T$ : Text X+1,Y+8,T$ : Text X+2,Y+8,T$
  82.   Ink I2 : Text X+1,Y+6,T$ : Text X,Y+7,T$ : Text X+1,Y+7,T$
  83.   Ink I1 : Text X,Y+6,T$
  84. End Proc
  85. Procedure BO2T[X,Y,I1,I2,I3,T$]
  86.   If X<0 Then X=Screen Width/2-Len(T$)*4
  87.   If Y<0 Then Y=Screen Height/2-4
  88.   Ink I3
  89.   For A=4 To 8
  90.     Text X-2,Y+A,T$
  91.     Text X+2,Y+A,T$
  92.   Next 
  93.   For A=-1 To 1
  94.     Text X+A,Y+4,T$
  95.     Text X+A,Y+8,T$
  96.   Next 
  97.   Ink I2 : Text X-1,Y+5,T$ : Text X,Y+5,T$ : Text X+1,Y+5,T$
  98.   Text X-1,Y+6,T$ : Text X+1,Y+6,T$
  99.   Text X-1,Y+7,T$ : Text X,Y+7,T$ : Text X+1,Y+7,T$
  100.   Ink I1 : Text X,Y+6,T$
  101. End Proc
  102. Procedure SH2T[X,Y,I,P,T$]
  103.   If X<0 Then X=Screen Width/2-Len(T$)*4
  104.   If Y<0 Then Y=Screen Height/2-4
  105.   Ink P : Text X,Y+7,T$ : Text X+1,Y+7,T$ : Text X+1,Y+6,T$
  106.   Ink I : Text X,Y+6,T$
  107. End Proc